Imports System.Drawing.Printing

Public Class XRptManifiesto

    Private Sub XRptManifiesto_DataSourceRowChanged(ByVal sender As Object, ByVal e As DevExpress.XtraReports.UI.DataSourceRowEventArgs) Handles Me.DataSourceRowChanged
        If GetCurrentColumnValue("FlgResponsable") Then
            LbResponsable.Text = "Encargado de Vuelo : " & GetCurrentColumnValue("Nombre").ToString
        End If

    End Sub
End Class